home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / vsllib / DEMOS / arcs next >
Encoding:
Text File  |  1995-05-01  |  2.7 KB  |  102 lines
  1. #!vsl
  2.  
  3. // $Id: arcs,v 1.1.1.1 1995/05/01 15:48:48 zeller Exp $ 
  4. // Testdatei fuer "arcs.vsl"
  5.  
  6. // $Log: arcs,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:48  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.3  1993/06/25  12:04:27  zeller
  11. // Fix: Kommentare Log-Datei angepasst
  12. //
  13. // Revision 9.2  1993/05/22  20:22:13  zeller
  14. // %Q% added by apply-q-flag.sh 1.5
  15. //
  16. // Revision 9.1  1991/07/08  06:00:39  zeller
  17. // Installierte Version
  18. // 
  19. // Revision 8.1  1991/07/06  15:03:54  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 4.1  1991/05/25  12:52:23  zeller
  23. // Neue Version mit folgenden Eigenschaften:
  24. // Let- und Where-Konstrukten;
  25. // Lokalen und globalen Funktionen, Overloading;
  26. // Erweiterten Fehlermeldungen.
  27. // 
  28. // Revision 3.2  1991/04/27  14:46:10  zeller
  29. // Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
  30. // 
  31. // Revision 3.1  1991/02/27  02:09:54  zeller
  32. // Umstellung auf neue Syntax (fast ganz wieder die alte)
  33. // 
  34. // Revision 2.2  1991/02/26  11:51:17  zeller
  35. // Umstellung von 'dispVSL' auf 'vsl'
  36. // 
  37. // Revision 2.1  1991/02/26  11:45:37  zeller
  38. // Anpassung auf neue Syntax (vorerst ungetestet)
  39. // 
  40. // Revision 1.6  1991/02/10  18:24:45  zeller
  41. // Letzte Definition muss global sein, um nicht geloescht zu werden
  42. // 
  43. // Revision 1.5  1991/01/29  15:26:52  zeller
  44. // Version eingefuehrt
  45. // 
  46. // Revision 1.4  1990/08/28  19:24:39  zeller
  47. // main() entfernt
  48. // 
  49. // Revision 1.3  1990/08/28  15:07:56  zeller
  50. // arc_90_2_test() entfernt
  51. // 
  52. // Revision 1.2  1990/08/26  17:33:22  zeller
  53. // ID korrigiert
  54. // 
  55. // Revision 1.1  1990/08/26  17:30:18  zeller
  56. // Initial revision
  57. // 
  58.  
  59. #include <std.vsl>
  60. #include <arcs.vsl>
  61.  
  62. arc90_test() =
  63.   fix(ne_arc90() ^ 20) & vwhite() &
  64.   fix(se_arc90() ^ 20) & vwhite() &
  65.   fix(nw_arc90() ^ 20) & vwhite() &
  66.   fix(sw_arc90() ^ 20);
  67.  
  68. arc180_test() =
  69.   fix(w_arc180() ^ 20) & vwhite() &
  70.   fix(e_arc180() ^ 20) & vwhite() &
  71.   fix(n_arc180() ^ 20) & vwhite() &
  72.   fix(s_arc180() ^ 20);
  73.  
  74. ellipse_test() =
  75.   ellipse("An ellipse.") & ellipse("1") & ellipse("2") & ellipse("3");
  76.  
  77. oval_test() =
  78.   oval("An oval.") & oval("1") & oval("2") & oval("3");
  79.  
  80. vcircle(a) = vcenter(circle(a));
  81. circle_test() =
  82.   vfix(vcircle("A circle.") & vcircle("1") & vcircle("2") & vcircle("3"));
  83.  
  84. // all tests
  85. all_arcs_tests() = 
  86.   arc90_test()         & vcenter(" // arc90_test()")
  87. | hwhite()
  88. | arc180_test()     & vcenter(" // arc180_test()")
  89. | hwhite()
  90. | ellipse_test()     & vcenter(" // ellipse_test()")
  91. | hwhite()
  92. | oval_test()         & vcenter(" // oval_test()")
  93. | hwhite()
  94. | circle_test()     & vcenter(" // circle_test()")
  95. ;
  96.  
  97. arcs_explanation() =
  98.   "This is '$RCSfile: arcs,v $ $Revision: 1.1.1.1 $', based on '" & arcs_version() & "'.";
  99.  
  100. arcs_main() = arcs_explanation() | all_arcs_tests();
  101. arcs_main(_...) -> arcs_main();
  102.